9 clear 
10 A=20180;B=A;C=120
20 X=-43;gosub C
30 X=53;gosub C
40 X=27672;gosub C
50 X=20190;gosub C
60 X=-13871; gosub C
70 X=21057; gosub C
80 X=16707; gosub C
90 X=18756; gosub C
100 X=20033; gosub C
105 X=0; gosub C
110 CALL B; STOP
120 %(A)=X; A=A+2; return 
:return ;run 
